具体上传实例测试
If e.IsFocusCell Then
If e.Col.Name = "统计表项" Then
If e.Row("是否统计表项") = True Then
e.Col.DropForm = ""
e.Col.ComboList = DataTables(Vars("tjbx_lwg")).GetComboListString("统计项","[统计表名] = '机电类统计表'","序号")
Else
e.Cancel = True
End If
elseIf e.Col.Name = "项目值" Then
e.Col.ComboList = ""
Dim dr As DataRow
dr = DataTables(Vars("cylb_lwg")).Find("列表项 = '" & e.Row("列表标志") & "'")
If dr IsNot Nothing Then '如果找到的话
If dr("列表值") = "[date]" Then
e.Col.DropForm = "下拉日期"
e.Col.ComboList = nothng
Else
e.Col.DropForm = nothng
e.Col.ComboList = DataTables(Vars("cylb_lwg")).GetComboListString("列表值","[列表项] = '" & e.Row("列表标志") & "'")
End If
End If
End If
End If
加好友 
发短信
Post By：2018/4/14 11:10:00 [显示全部帖子]
