我的初衷是这样的,
项目的表是外部表, 加载完后 根据表中 ischeck 列的值 来自动生成 状态2的 值
代码是要放在项目属性的 afteropenproject里的,帮忙修正一下啊,非常感谢
For Each dr As DataRow In DataTables("订单").Select("状态2")
Dim fdr As DataRow = DataTables("订单").Select("ischeck")
If dr=1 Then
fdr = "已付款"
ElseIf dr=2 Then
fdr = "未付款"
ElseIf dr=2 Then
fdr = "未付款"
ElseIf dr=4 Then
fdr = "延期"
ElseIf dr=5 Then
fdr = "OK"
ElseIf dr=11 Then
fdr = "已经发货"
ElseIf dr=31 Then
fdr = "已经付款"
ElseIf dr=7 Then
fdr = "取消"
ElseIf dr=100 Then
fdr = "订单结束"
End If
Next