方法是从网上找的，做成了函数，算是借花献佛，在此感谢原作者！！！
具体见附件，运行demo，里面有说明

[此贴子已经被作者于2022-2-15 09:39编辑过]

不简单！

谢谢！

感谢感谢，虽然已经有此类解决方案，但这个方案也非常不错。

[此贴子已经被作者于2022-2-15 14:58编辑过]

您这个方法非常好，能否分享一下下

1、用代码为Grid的Column添加容器控件，容器控件中再添加label、shape、image等控件，并设置好格式及布局，可用label控件做数据显示，shape做进度条；
2、Form添加方法（如命名为ShowJdt），在方法中处理容器控件中要显示的数据内容以及进度条的宽度、颜色等，

如:
Gird的设置
Grid1.columns(x).Sparse = .F.
Grid1.columns(x).CurrentControl='container1'
Grid1.columns(x).DynamicFontItalic = 'Thisform.ShowJdt()'  

From.ShowJdt中的代码
Grid1.columns(x).container1.shape1.width=根据字段值计算得出的进度条宽度值
……
如：

[此贴子已经被作者于2022-2-16 08:27编辑过]

收到的鲜花

• 厨师王德榜 于 2022-02-21 11:31 送鲜花  1朵   附言：感谢分享

谢谢啦！！！

谢谢分享！

厉害的！建议把它封装成一个类。。。

[此贴子已经被作者于2022-2-16 09:59编辑过]

大家都可以自动动手设计自己的风格且通过简单改几个参数就可以引用的代码，使用时引用即可。