点选下拉列表选项后，其他控件未定现自动录入数据 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 点选下拉列表选项后，其他控件未定现自动录入数据

共有5833人关注过本帖树形打印复制链接主题：点选下拉列表选项后，其他控件未定现自动录入数据

采菊东篱下

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

加好友

发短信

等级：八尾狐帖子：1882 积分：10391 威望：0 精华：0 注册：2019/4/6 8:45:00

点选下拉列表选项后，其他控件未定现自动录入数据 发帖心情

Post By：2021/11/3 16:30:00 [显示全部帖子]

此主题相关图片如下：qq图片20211103161814.png

此主题相关图片如下：qq图片20211103161718.png

我想实现点选窗口中的ComboBox1控件，TextBox1、TextBox2控件直接输入最小编号和对应的姓名

我在SelectedIndexChanged事件中这样写，TextBox1、TextBox2没反应。

Dim cmd As New SQLCommand

Dim dt As DataTable

cmd.CommandText = "SELECT DISTINCT 棋赛名称,比赛已结束 Fr om {基本信息} WHERE [比赛已结束] = False Or [比赛已结束] Is null"

dt = cmd.ExecuteReader

e.Sender.Combolist = dt.SQLGetComboListString("棋赛名称","[比赛已结束] = False Or [比赛已结束] Is null")

Dim val As String = e.Sender.SelectedItem

If val IsNot Nothing Then

Dim Min0 As String = DataTables("基本信息").SQLCompute("Min(编号)","[棋赛名称] = '" & val & "'")

Messagebox.show(Min0)

Dim dr As DataRow = DataTables("基本信息").SQLFind("[棋赛名称] = '" & val & "' And [编号] = '" & Min0 & "'")

e.Form.Controls("TextBox1").Value = dr("编号")

e.Form.Controls("TextBox2").Value = dr("姓名")

End If

采菊东篱下

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

加好友

发短信

等级：八尾狐帖子：1882 积分：10391 威望：0 精华：0 注册：2019/4/6 8:45:00

Post By：2021/11/3 16:53:00 [显示全部帖子]

谢谢，可以了，还有，我想让ComboBox1控件中的文字自动换行，如何实现？

采菊东篱下

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

加好友

发短信

等级：八尾狐帖子：1882 积分：10391 威望：0 精华：0 注册：2019/4/6 8:45:00

Post By：2021/11/3 17:38:00 [显示全部帖子]

哪名称过长，怎样实现分行显示？只能用文本控件吗？但用文本控件又怕名称有误。

采菊东篱下

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

加好友

发短信

等级：八尾狐帖子：1882 积分：10391 威望：0 精华：0 注册：2019/4/6 8:45:00

Post By：2021/11/3 18:00:00 [显示全部帖子]

用下拉目录树？不是我要的效果！

采菊东篱下

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

加好友

发短信

等级：八尾狐帖子：1882 积分：10391 威望：0 精华：0 注册：2019/4/6 8:45:00

Post By：2021/11/4 14:38:00 [显示全部帖子]

不要下拉窗口形式，我在下面加一个文本控件作棋赛副名：

这样写TextBox3没有赋值

If e.sender.text > "" Then

Dim val As String = e.sender.text

Dim Min0 As String = DataTables("基本信息").SQLCompute("Min(编号)","[棋赛名称] = '" & val & "'")

Dim dr As DataRow = DataTables("基本信息").SQLFind("[棋赛名称] = '" & val & "' And [编号] = '" & Min0 & "'")

If dr IsNot Nothing And dr.IsNull("棋赛副名") Then

e.Form.Controls("TextBox3").Value = Nothing

e.Form.Controls("TextBox1").Value = dr("编号")

e.Form.Controls("TextBox2").Value = dr("姓名")

ElseIf dr IsNot Nothing And dr.IsNull("棋赛副名") = False Then

e.Form.Controls("TextBox3").Value = dr("棋赛副名")

e.Form.Controls("TextBox1").Value = dr("编号")

e.Form.Controls("TextBox2").Value = dr("姓名")

Else

msgbox("没有符合条件的数据")

End If

采菊东篱下

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

加好友

发短信

等级：八尾狐帖子：1882 积分：10391 威望：0 精华：0 注册：2019/4/6 8:45:00

Post By：2021/11/4 15:26:00 [显示全部帖子]

不行，这样写我都试过不行了，没赋值。

采菊东篱下

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

加好友

发短信

等级：八尾狐帖子：1882 积分：10391 威望：0 精华：0 注册：2019/4/6 8:45:00

Post By：2021/11/4 15:27:00 [显示全部帖子]

棋赛副名列有可能是空值，没输入值。

采菊东篱下

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

加好友

发短信

等级：八尾狐帖子：1882 积分：10391 威望：0 精华：0 注册：2019/4/6 8:45:00

Post By：2021/11/4 17:19:00 [显示全部帖子]

现在棋赛副名列有值，这样写也没有赋值。

采菊东篱下

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

加好友

发短信

等级：八尾狐帖子：1882 积分：10391 威望：0 精华：0 注册：2019/4/6 8:45:00

Post By：2021/11/4 17:49:00 [显示全部帖子]

弹窗没有值，但基本信息中的棋赛副名有值的。

采菊东篱下

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

加好友

发短信

等级：八尾狐帖子：1882 积分：10391 威望：0 精华：0 注册：2019/4/6 8:45:00

Post By：2021/11/4 20:23:00 [显示全部帖子]

数据保存了，我关闭并且删除了bin文件重新打开再试它还是没有赋值，同样的条件，编号和姓名都显示了，剩独棋赛副名不显示。

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

总数 30 1 2 3 下一页

主题：点选下拉列表选项后，其他控件未定现自动录入数据