- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 帮忙修改一下代码 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=32413)
-- 发布时间：2013/5/1 23:13:00
-- 帮忙修改一下代码
我想在窗口的一个文本框中输入会员编号，点击按纽后姓名、姓别、年龄等能够自动从会员表中填充到窗口的其它几个文本框中，我写的这个肯定不对，帮忙修改一下
Dim wybh As WinForm.TextBox = e.Form.Controls("TextBox1").Text
If DataTables("会员表").DataRows("会员编号") = wybh Then
Dim f As New Filler
f.SourceTable = DataTables("会员表")
f.SourceCols = "会员姓名,性别,年龄,联系电话”
f.DataTable = DataTables("会员见面表")
f.DataCols = "姓名,姓别,年龄,联系电话"
f.Fill() \'填充
End If
-- 发布时间：2013/5/1 23:15:00
--
此主题相关图片如下：1.jpg
-- 发布时间：2013/5/1 23:16:00
--
If DataTables("会员表").DataRows("会员编号") = wybh Then
这句问题不少
-- 发布时间：2013/5/1 23:20:00
--
就是这句的问题了，哥们，帮一下
-- 发布时间：2013/5/1 23:32:00
--
Dim wybh As string = e.Form.Controls("TextBox1").Text
If Tables("会员表").Current("会员编号") = wybh Then
Dim f As New Filler
f.SourceTable = DataTables("会员表")
f.SourceCols = "会员姓名,性别,年龄,联系电话”
f.DataTable = DataTables("会员见面表")
f.DataCols = "姓名,性别,年龄,联系电话"
f.Fill() \'填充
End If
[此贴子已经被作者于2013-5-1 23:33:00编辑过]
-- 发布时间：2013/5/1 23:37:00
--
cmd.commandtext="select 姓名,姓别,年龄 from {会员表} where 会员编号=\'" & e.form.controls("会员编号").text & "\'"
dim dt as datatable=cmd.ExecuteReader()
if dt.datarows.count=1
dim dr as datarow=dt.datarows(0)
e.form.controls("姓名").text=dr("姓名")
end if
-- 发布时间：2013/5/2 9:51:00
--
还是第二句有问题
-- 发布时间：2013/5/2 9:57:00
--
六楼的朋友写的这个也不行
此主题相关图片如下：2.jpg
-- 发布时间：2013/5/2 11:07:00
--
dim cmd as new sqlcommand