[求助]自动赋值 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]自动赋值

共有2973人关注过本帖树形打印复制链接主题：[求助]自动赋值

有点蓝

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：113624 积分：578651 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2018/6/29 22:33:00 [显示全部帖子]

组合框SelectedIndexChanged事件

Dim khhcs As New SQLCommand

Dim kh As DataTable

khhcs.ConnectionName = "赋值"

khhcs.CommandText = "SELECT * From {列表项目} where 街道='" & e.Sender.Text & "'"

kh = khhcs.ExecuteReader

e.Form.Controls("TextBox1").text = kh.DataRows(0)("省辖市")

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：113624 积分：578651 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2018/6/29 23:09:00 [显示全部帖子]

Dim khhcs As New SQLCommand

Dim kh As DataTable

khhcs.ConnectionName = "赋值"

khhcs.CommandText = "SELECT * From {列表项目} where 街道='" & e.Sender.Text & "'"

kh = khhcs.ExecuteReader

Tables("明细表").Current("省辖市") = kh.DataRows(0)("省辖市")

有点蓝

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：113624 积分：578651 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2018/6/30 10:32:00 [显示全部帖子]

1、不能使用绑定

2、看看：http://www.foxtable.com/webhelp/scr/2436.htm

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：113624 积分：578651 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2018/7/2 20:38:00 [显示全部帖子]

……

Case "基本信息_省辖市"

Dim dr As DataRow = DataTables("行政区域").Find("省辖市 = '" & e.OldValue & "'")

If dr Is Nothing Then

dr = DataTables("行政区域").AddNew()

End If

dr("省辖市") = e.DataRow("基本信息_省辖市")

dr("地级市") = e.DataRow("基本信息_地级市")

dr("区县市") = e.DataRow("基本信息_区县市")

……

有点蓝

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：113624 积分：578651 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2018/7/3 21:50:00 [显示全部帖子]

不是还有一个If e.Node.Level = 2的处理吗？在那里赋值不就行了

有点蓝

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：113624 积分：578651 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2018/7/3 22:55:00 [显示全部帖子]

If e.Node.Level = 2 Then '如果单击的是第二层节点

Dim ps() As String = e.Node.FullPath.Split("\")

Dim tr As Row = Tables("通讯录").Current

Dim dr As DataRow = DataTables("行政区域").Find("省辖市 = '" & ps(0) & "' And 地级市 = '" & ps(1) & "' And 区县市 = '" & ps(2) & "'")

If dr IsNot Nothing Then '如果在行政区域表找到对应的行,则将此行的值写入通讯录表的当前行.

tr("基本信息_省辖市") = dr("省辖市")

tr("基本信息_地级市") = dr("地级市")

tr("基本信息_区县市") = dr("区县市")

tr("基本信息_街道社区") = dr("街道")

tr("个人电子信息_区号") = dr("区号")

tr("个人电子信息_邮编") = dr("邮编")

e.Form.DropDownBox.Value = tr("基本信息_街道社区")

End If

e.Form.DropDownBox.CloseDropdown()

End If

下一主题 >> << 上一主题

主题：[求助]自动赋值