标题：[求助]求各位老大看看,这代码怎么不行??
我的示例文件有:类别/项目/规格3个级别...
选择类别后该类别项目作为列表项目,选择了项目后该项目规格作为列表项目.下面代码怎么不行啊?
If e.Col.Name = "项目" Then
If e.Row.IsNull("类别") Then
e.Col.Combolist = ""
Else
e.Col.Combolist = DataTables("价表").GetComboListString("项目", "[类别] = '" & e.Row("类别") & "'")
If e.Col.Name = "规格" Then
If e.Row.IsNull("项目") Then
e.Col.Combolist = ""
Else
e.Col.Combolist = DataTables("价表").GetComboListString("规格", "[项目] = '" & e.Row("项目") & "'")
End If
End If
End If
End If
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:菜鸟项目.table |
如何实现这样的快捷录入?如果能实现真的太爽了...
此主题相关图片如下：001.jpg
另外参照自动输入示例,假如县市下还有细分,如何实现?我写了半天不是代码出错就是实现不了....
If e.Col.Name = "项目" Then
If e.Row.IsNull("类别") Then
e.Col.Combolist = ""
Else
e.Col.Combolist = DataTables("价表").GetComboListString("项目", "[类别] = '" & e.Row("类别") & "'")
End If
End If
| 下载信息 [文件大小：1.1 MB 下载次数：0] | |
 点击浏览该文件:菜鸟项目.table |
顶起
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:菜鸟项目.table |
原来代码可以这样写,举一反三,就算再多一级都不是问题了.谢谢老大指点.If e.Col.Name = "项目" Then
If e.Row.IsNull("类别") Then
e.Col.Combolist = ""
Else '否则
Dim drs As New List(Of DataRow)
Dim Val AS String
drs = DataTables("价表").Select("[类别] = '" & e.Row("类别") & "'")
For Each dr As DataRow In drs
Val = Val & "|" & dr("项目")
Next
e.Col.Combolist = Val
End If
End If
If e.Col.Name = "规格" Then
If e.Row.IsNull("类别") OrElse e.Row.IsNull("项目") Then
e.Col.Combolist = ""
Else '否则
Dim drs As New List(Of DataRow)
Dim Val AS String
drs = DataTables("价表").Select("[类别] = '" & e.Row("类别") & "'" & " and [项目]='" & e.Row("项目") & "'")
For Each dr As DataRow In drs
Val = Val & "|" & dr("规格")
Next
e.Col.Combolist = Val
End If
End If