Dim cmb As WinForm.ComboBox = e.Sender Dim s1 As String = e.Form.Controls("ComboBox1").Value Dim fdr As DataRow = DataTables("行政区划").Find("地区名称 = '" & s1 & "'") If fdr IsNot Nothing Then cmb.ComboList = DataTables("行政区划").GetComboListString("地区名称", "上级编码 = '" & fdr("地区编码") & "'") Else cmb.ComboList = "" End If
加好友 
发短信
Post By：2017/10/13 10:45:00 [显示全部帖子]
