Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]多人操作---自动增加控件报错


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

主题：[求助]多人操作---自动增加控件报错
帅哥哟，离线，有人找我吗？
huhu
 小大  21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1165 积分：8129 威望：0 精华：0 注册：2015/3/30 10:44:00 		  发帖心情 Post By：2016/3/18 11:18:00 [只看该作者]

刷新click
DataTables("盖楼").LoadFilter = ""
DataTables("盖楼").load
Tables("盖楼").Sort = "回复时间"
Dim str As String
Dim id As Integer
id = user.name.IndexOf("@")
str = user.name.SubString(0,id)
Dim drs As List(of DataRow) = DataTables("盖楼").Select("BUG_ID = '" & Vars("BUGID") & "'","回复时间")
Vars("iii") = 0
Vars("yyy") = 20
If drs.count > 0 Then
    For Each dr As DataRow In drs
        If dr("提交") = True Then
            Dim txt1 As WinForm.TextBox
            Dim Label11,label22 As WinForm.Label
            txt1 = e.Form.CreateControl("TextBox" & dr("_Identify"), ControlTypeEnum.TextBox)
            label11 = e.Form.CreateControl("label11" & dr("_Identify"), ControlTypeEnum.label)
            label22 = e.Form.CreateControl("label22" & dr("_Identify"), ControlTypeEnum.label)
            txt1.Left = 150
            txt1.Top = Vars("yyy")
            txt1.height = 50
            txt1.MultiLine = True
            txt1.ScrollBars = Windows.Forms.ScrollBars.Vertical
            txt1.SetBounds(150,Vars("yyy"),500,50)
            e.Form.AddControl(txt1)
            label11.Left = 50
            label11.Top = Vars("yyy")
            e.Form.AddControl(label11)
            label22.Left = 50
            label22.Top = Vars("yyy") + 20
            label22.Height =30
            e.Form.AddControl(label22)
            txt1.text = dr("备注")
            label11.Text = dr("回复者")
            label22.Text = dr("回复时间")
            If dr("提交") = True Then
                txt1.readonly = BooleanEnum.True
            Else
                txt1.readonly = BooleanEnum.False
            End If
            Vars("iii") += 1
            Vars("yyy") += txt1.height + 10
        'ElseIf (dr("提交") = False And dr("回复者") Like '% str %') Then
            'dr.Delete
        End If
    Next
End If
DataTables("盖楼").save()
 回到顶部
帅哥哟，离线，有人找我吗？
huhu
 小大  22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1165 积分：8129 威望：0 精华：0 注册：2015/3/30 10:44:00 		  发帖心情 Post By：2016/3/18 11:19:00 [只看该作者]

现在的情况是2个人同时操作1先2后没有问题。点击刷新正常显示。
出现的情况是当2人都点击盖楼，就会出现后面的覆盖前面的内容。
 回到顶部
帅哥哟，离线，有人找我吗？
huhu
 小大  23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1165 积分：8129 威望：0 精华：0 注册：2015/3/30 10:44:00 		  发帖心情 Post By：2016/3/18 11:32:00 [只看该作者]

出现楼层和时间相等的情况。

图片点击可在新窗口打开查看此主题相关图片如下：时间楼层.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
Hyphen
 小大  24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00 		  发帖心情 Post By：2016/3/18 11:33:00 [只看该作者]

盖楼后先保存一下，占个位

 回到顶部
帅哥哟，离线，有人找我吗？
huhu
 小大  25楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1165 积分：8129 威望：0 精华：0 注册：2015/3/30 10:44:00 		  发帖心情 Post By：2016/3/18 11:42:00 [只看该作者]

都是保存过的。

 回到顶部
客人(203.110.*.*)
 小大  26楼


  发帖心情 Post By：2016/3/18 14:51:00 [只看该作者]

盖楼click代码:
DataTables("盖楼").LoadFilter = ""
DataTables("盖楼").load
DataTables("盖楼").save()
Tables("盖楼").Sort = "回复时间"
Dim drs As List(of DataRow) = DataTables("盖楼").Select("BUG_ID = '" & Vars("BUGID") & "' and 提交 = true","回复时间")
Vars("iii") = 0
Vars("yyy") = 20
If drs.count > 0 Then
    For Each dr As DataRow In drs
        If dr("提交") = True Then
            Dim txt1 As WinForm.TextBox
            Dim Label11,label22 As WinForm.Label
            txt1 = e.Form.CreateControl("TextBox" & dr("_Identify"), ControlTypeEnum.TextBox)
            label11 = e.Form.CreateControl("label11" & dr("_Identify"), ControlTypeEnum.label)
            label22 = e.Form.CreateControl("label22" & dr("_Identify"), ControlTypeEnum.label)
            txt1.Left = 150
            txt1.Top = Vars("yyy")
            txt1.height = 50
            txt1.MultiLine = True
            txt1.ScrollBars = Windows.Forms.ScrollBars.Vertical
            txt1.SetBounds(150,Vars("yyy"),500,50)
            e.Form.AddControl(txt1)
            label11.Left = 50
            label11.Top = Vars("yyy")
            e.Form.AddControl(label11)
            label22.Left = 50
            label22.Top = Vars("yyy") + 20
            label22.Height =30
            e.Form.AddControl(label22)
            txt1.text = dr("备注")
            label11.Text = dr("回复者")
            label22.Text = dr("回复时间")
            If dr("提交") = True Then
                txt1.readonly = BooleanEnum.True
            Else
                txt1.readonly = BooleanEnum.False
            End If
            Vars("iii") += 1
            Vars("yyy") += txt1.height + 10        
        End If
    Next
End If
DataTables("盖楼").save()
Dim r As Row = Tables("盖楼").AddNew()
DataTables("盖楼").Save()
Tables("盖楼").Sort = "回复时间"
r("BUG_ID") = Vars("BUGID")
Dim txt As WinForm.TextBox
Dim Label1,label2 As WinForm.Label
txt = e.Form.CreateControl("TextBox" & r("_Identify"), ControlTypeEnum.TextBox)
label1 = e.Form.CreateControl("label1" & r("_Identify"), ControlTypeEnum.label)
label2 = e.Form.CreateControl("label2" & r("_Identify"), ControlTypeEnum.label)
DataTables("盖楼").Save()
txt.Left = 150
txt.Top = Vars("yyy")
txt.height = 50
txt.MultiLine = True
txt.ScrollBars = Windows.Forms.ScrollBars.Vertical
txt.SetBounds(150,Vars("yyy"),500,50)
e.Form.AddControl(txt)
DataTables("盖楼").Save()
label1.Left = 50
label1.Top = Vars("yyy")
e.Form.AddControl(label1)
DataTables("盖楼").Save()
Dim str As String
Dim id  As Integer
id = user.name.IndexOf("@")
str = user.name.SubString(0,id)
label1.Text = Vars("iii") & "楼" & str
Vars("iii") += 1
r("回复者") = label1.Text
DataTables("盖楼").Save()
label2.Left = 50
label2.Top = Vars("yyy") + 15
label2.Height = 30
e.Form.AddControl(label2)
DataTables("盖楼").Save()
label2.Text = Date.now
r("回复时间") = label2.Text
Vars("yyy") += txt.height + 10
DataTables("盖楼").Save()

图片点击可在新窗口打开查看此主题相关图片如下：楼层号不对.png
图片点击可在新窗口打开查看
请狐爸瞅瞅，然后在多人操作的时候，每个人的var(iii)能区分出来，不然同一时间，2人操作，var(iii)都是相等的，就会出现楼层号重复显示。
狐爸看看啊。
 回到顶部
帅哥哟，离线，有人找我吗？
huhu
 小大  27楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1165 积分：8129 威望：0 精华：0 注册：2015/3/30 10:44:00 		  发帖心情 Post By：2016/3/18 15:19:00 [只看该作者]

自己顶一下。引起注意。

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  28楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/3/21 2:06:00 [只看该作者]

 楼层的信息，就不应该保存到数据库里。楼层根据取出的数据，累加1去展现不就行了？
 回到顶部
帅哥哟，离线，有人找我吗？
huhu
 小大  29楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1165 积分：8129 威望：0 精华：0 注册：2015/3/30 10:44:00 		  发帖心情 Post By：2016/3/21 9:26:00 [只看该作者]

这个问题上周五我已重新构思，已解决。谢谢各位。

 回到顶部
总数 29 上一页 1 2 3
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.16797 秒, 4 次数据查询