以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]listview17增加按钮  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=121208)

--  作者:blsu33
--  发布时间:2018/7/1 17:35:00
--  [求助]listview17增加按钮
老师,
   listview17的例子问题,在网络状态下,这个行数是随时变动,应该怎么写才好呢?
增加按钮
Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
Dim r As Row = Tables("员工").AddNew()
Dim cnt As Integer = DataTables("员工").DataRows.Count \'记录打开窗口前的行数
Forms("员工信息").Open()
If DataTables("员工").DataRows.Count = cnt \'如果新增行已经保存
    Dim vr As WinForm.ListViewRow = lvw.Rows.Add()
    For Each cl As WinForm.ListViewColumn In lvw.Columns \'逐列取值
        vr(cl.Name) = r(cl.Name)
    Next
      If r("性别") = "男" Then \'设置分组
        vr.ImageKey = "Man"
    Else
        vr.ImageKey = "Woman"
    End If
    vr.Tag = r.DataRow \'将DataRow赋值给ListViewRow的Tag属性,将二者联系起来
End If
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:listview17.table




--  作者:有点甜
--  发布时间:2018/7/1 20:42:00
--  

1、网络状态?你实时变更【员工】表的数据?试试同步后台数据库的数据?

 

2、当你员工表实时变化的时候,你的listview也应该重新生成才对。


--  作者:blsu33
--  发布时间:2018/7/1 20:48:00
--  
那这个更新事件写在哪里比较好  网络事件中?


--  作者:有点甜
--  发布时间:2018/7/1 21:05:00
--  
你用什么方式更新表数据的?更新的时候,如果窗口打开,你要把listview的数据清空,重新生成的。
--  作者:blsu33
--  发布时间:2018/8/8 21:40:00
--  
老师,
  我的意思是,网络状态下判断这个行数应该不好判定吧,能否换成其他的,如
Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
Dim r As Row = Tables("员工").AddNew()
Forms("员工信息").Open()
If r.DataRow.RowState=DataRowState.Unchanged Then\'  这样写可以吗?
    Dim vr As WinForm.ListViewRow = lvw.Rows.Add()
    For Each cl As WinForm.ListViewColumn In lvw.Columns \'逐列取值
        vr(cl.Name) = r(cl.Name)
    Next
          vr.Tag = r.DataRow \'将DataRow赋值给ListViewRow的Tag属性,将二者联系起来
End If
[此贴子已经被作者于2018/8/8 22:01:15编辑过]

--  作者:blsu33
--  发布时间:2018/8/8 22:18:00
--  
老师,
还有问题二 
  示例十七-应用 窗口的 修改按钮,为什么不能同步到点击的LISTVIEW 的行,总是末行
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:listview17.table



--  作者:有点甜
--  发布时间:2018/8/8 22:21:00
--  

这个和你是否网络无关,操作的都是已经加载进来的数据。你是不是想得有点多。

 

你写的代码有问题,r变量有可能为删除的行,改成 If r isNot Nothing AndAlso r.DataRow.RowState=DataRowState.Unchanged Then


--  作者:blsu33
--  发布时间:2018/8/8 22:27:00
--  
哦 换成绑定窗口中TABLE  增加和修改都不好用了,哪里不对?
--  作者:有点甜
--  发布时间:2018/8/8 22:32:00
--  
以下是引用blsu33在2018/8/8 22:27:00的发言:
哦 换成绑定窗口中TABLE  增加和修改都不好用了,哪里不对?

 

1、【员工信息】窗口的控件,绑定的是【员工】表;

 

2、http://www.foxtable.com/webhelp/scr/2631.htm