- 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=18508)
-- 发布时间：2012/4/15 22:59:00
-- [求助]研究了一个星期还没搞不懂，请老师帮帮忙
| 区 | 主干 | 配线 | 宽带端口 | 电话号码 | 物理号码 | 姓名 | 帐号 | 联系号码 | 地址 | 分线盒 | 分线地址 | 备注 |
| 1 | 1 | 23 | 33333 | |||||||||
| 1 | 2 | 24 | 33123 | |||||||||
| 2 | 1 | 222 | 332123 | |||||||||
| 2 | 2 | 333 | 312323 |
现在比如：区有50个区，区可以增加；每个区有主干1-600或者1-800不等，（比如1区有600个主干；2区800个主干等等）每个区里面的主干值是唯一的，而且是按照从1到800的顺序排列的；每个区的每个主干对应的有相应的配线，端口，电话号码一些数据，，
现在我想创建一个窗体如：比如；在 区 输入1，主干 输入36，按回车，或者输完数字点击鼠标，就会自动读取对应的数据，然后就可以对对应的数据进行修改录入，果在输入主干值，没有对应的信息或者是个空的，（比如1区有600个主干，如果我输入601就是空的）在填写好数据后，就直接添加。请求老师帮帮忙
| 区 | 1 |
| 主干 | 2 |
| 配线 | |
| 宽带端口 | 24 |
| 电话号码 | 33123 |
|
物理号码 |
|
| 姓名 | |
| 帐号 | |
| 联系号码 | |
| 地址 | |
| 分线盒 | |
| 分线地址 | |
| 备注 |
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:三里河线序资料2003.xls |
[此贴子已经被作者于2012-4-15 23:03:39编辑过]
-- 发布时间：2012/4/15 23:56:00
--
连简单的文件都舍不得创建一个吗？
-- 发布时间：2012/4/16 7:25:00
--
一个文本框，不用绑定到，一个按钮，在文本框输入主干值之后，单击确定按钮。
确定按钮的代码为：
Dim dr as DataRow = DataTables("表名").Find("主干 = \'" & e.Form.Controls("文本框名").Value & "\'")
if dr Is Nothing then
dr = Tables("表名").AddNew
dr("主干") = e.Form.Controls("文本框名").Value
End if
Tables("表名").Position = Tables("表名").FindRow(dr)
上面的代码假定主干是字符型，如果是数值型，第一行改为：
Dim dr as DataRow = DataTables("表名").Find("主干 =" & e.Form.Controls("文本框名").Value )
-- 发布时间：2012/4/16 12:11:00
--
[求助]最简单的加减乘除，求助！