Foxtable(狐表)用户栏目专家坐堂 → 新版《动态窗口+数据快速录入示例》


  共有16921人关注过本帖树形打印复制链接

主题:新版《动态窗口+数据快速录入示例》

帅哥哟,离线,有人找我吗?
狐狸爸爸
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
新版《动态窗口+数据快速录入示例》  发帖心情 Post By:2009/3/26 10:32:00 [只看该作者]

在菜鸟兄的基础上,解决光标移动问题:

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目28.table


另外特别提示一下,在菜鸟兄原来的文件中,窗口的AfterLoad中出现了下面的代码:

Dim dst as winform.DataList = e.form.Controls("DataList1")

Dim cmd as New SQLCommand
cmd.CommandText = "Select * from {项目}"
dst.DataTable = cmd.ExecuteReader()
dst.Build()


这样等于每次打开窗口,就要从后台加载一次项目表,效率太低,这可是重新加载整个项目表呢。
其实项目表已经加载了,我们只需在设计窗口的时候将DataList绑定到项目表即可,所以上面的代码应该全部删除的,就像我上面的例子做的那样。
[此贴子已经被作者于2009-3-26 10:34:49编辑过]

[本帖被加为精华]
 回到顶部
帅哥哟,离线,有人找我吗?
菜鸟foxtable
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 菜鸟中的老鸟
等级:七尾狐 帖子:1486 积分:10064 威望:0 精华:9 注册:2008/11/14 8:54:00
  发帖心情 Post By:2009/3/26 10:51:00 [只看该作者]

顶.
另说明一下,我的设计针对的是外部表.我有特殊需要.项目内容随时可能更新,这样的做法也是必须的,保证数据最新化.


再一个请教一下老爹,Tables("医嘱").select(Tables("医嘱").Rows.Count - 1, 5)这句是指定输入焦点到最后一行第五列.我想指定到当前行第五列该怎么写?
[此贴子已经被作者于2009-3-26 10:58:24编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2009/3/26 10:59:00 [只看该作者]

呵呵,明白了。

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2009/3/26 11:22:00 [只看该作者]

以下是引用菜鸟foxtable在2009-3-26 10:51:00的发言:
再一个请教一下老爹,Tables("医嘱").select(Tables("医嘱").Rows.Count - 1, 5)这句是指定输入焦点到最后一行第五列.我想指定到当前行第五列该怎么写?


With Tables("医嘱")
      .Select(.Position, 5)
End With

[此贴子已经被作者于2009-3-26 11:23:06编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
kylin
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 F6
等级:狐精 帖子:3036 积分:19229 威望:0 精华:2 注册:2008/9/1 7:50:00
  发帖心情 Post By:2009/3/26 13:15:00 [只看该作者]

老六打擂台,做收好作品!

 回到顶部
帅哥哟,离线,有人找我吗?
exonjee
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:352 积分:3192 威望:0 精华:0 注册:2008/9/1 9:38:00
  发帖心情 Post By:2009/4/1 10:56:00 [只看该作者]

以下是引用狐狸爸爸在2009-3-26 11:22:00的发言:


With Tables("医嘱")
      .Select(.Position, 5)
End With

[此贴子已经被作者于2009-3-26 11:23:06编辑过]

应该为:
With Tables("医嘱")
      .Select(.Position, 4)
End With


 回到顶部
帅哥哟,离线,有人找我吗?
188802386
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:629 积分:4927 威望:0 精华:0 注册:2014/2/25 15:50:00
  发帖心情 Post By:2018/5/22 15:28:00 [只看该作者]

报错了 


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/5/22 15:31:00 [只看该作者]

以下是引用188802386在2018/5/22 15:28:00的发言:
报错了 

 

上传你具体实例说明你要做什么。


 回到顶部