碰到问题了,老大看看怎么回事? - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

我在项目事件的SystemIdle中加入这么一段代码:

With CurrentTable
    Dim Str1 As String
    Str1 =str1 & "欢迎使用本便利店收银系统,本系统设计人:布莱克朱 QQ:854595005 "
    Str1 =str1 & "当前登录: " & _UserName
    Str1 =str1 & " 时间:" & Date.Now() & " 星期" & "日一二三四五六".Chars(Today.DayOfWeek)
    StatusBar.Message1 = Str1
End With

关闭事件可以执行,但是我用自定义登录后,这段代码不执行了.

登录的代码是:

Dim UserName As String = e.Form.Controls("UserName").Value
Dim cmd As New SQLCommand
Dim dt As DataTable
Dim dr As DataRow
If UserName = "" Then
    Messagebox.show("请选择用户!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If
cmd.CommandText = "Select * From {系统用户管理} Where [用户名] = '" & UserName & "'"
dt = cmd.ExecuteReader
dr = dt.DataRows(0)
If e.Form.Controls("PassWord").Value = dr("密码") Then
    _UserName = UserName
    Forms("主界面").Open()
    MainTable=Tables("采购进货")
    e.Form.Close
Else
    Messagebox.show("密码错误!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

这段代码存在一个打开主界面的窗口,但是主界面窗口代码如下:

Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")
tab.SelectedIndex = 0
If Vars("Val") <> "" Then
    e.Form.Controls("店名").Text = GetConfigValue("店名",Vars("Val"))
End If
Dim pbx As WinForm.PictureBox
pbx = e.Form.Controls("PictureBox1")
pbx.Image = GetImage(GetConfigValue("图片",""))
pbx.SizeMode = ImageSizeMode.StretchImage

If Tables("销售订单").Rows.Count > 0 Then
    Dim r1 As Row = Tables("销售订单").Current
    e.Form.Controls("卡号").Text = "会员卡号:" & r1("会员卡号")
    e.Form.Controls("姓名").Text = "姓名:" & r1("姓名")
    e.Form.Controls("折扣").Text = "折扣:" & r1("折扣")
    Dim dr As DataRow = DataTables("会员资料").Find("会员卡号='" & r1("会员卡号") & "'")
    If dr IsNot Nothing Then
        e.Form.Controls("积分").Text = "积分:" & dr("积分")
    End If
    e.Form.Controls("销售单号").Text ="销售单号:" & r1("销售单号")
    e.Form.Controls("操作员").Text ="操作员:" & r1("操作员")
    e.Form.Controls("销售日期").Text ="销售日期:" & r1("销售日期")
Else
    Forms("主界面").Controls("卡号").Text = "会员卡号:"
    Forms("主界面").Controls("姓名").Text = "姓名:"
    Forms("主界面").Controls("折扣").Text = "折扣:"
    Forms("主界面").Controls("积分").Text = "积分:"
    Forms("主界面").Controls("销售单号").Text ="销售单号:"
    Forms("主界面").Controls("操作员").Text ="操作员:"
    Forms("主界面").Controls("销售日期").Text ="销售日期:"
End If

If Tables("销售订单.销售明细").Rows.Count> 0 Then
    Dim dr As Row = Tables("销售订单").Current
    Dim i As Integer = Tables("销售订单.销售明细").DataTable.Compute("Count(销售单号)","销售单号='" & dr("销售单号") & "'")
    Dim n1 As Double = Tables("销售订单.销售明细").DataTable.Compute("Sum(售价小计)","销售单号='" & dr("销售单号") & "'")
    Forms("主界面").Controls("销售小计").Text = "销售数量:" & i & "笔" & "    " & "合计金额:" & n1 &"元"
    Forms("主界面").Controls("销售合计").Text = "共" & n1 & "元"
Else
    Forms("主界面").Controls("销售合计").Text = "共0元"
    Forms("主界面").Controls("销售小计").Text ="消费数量:0 笔   合计金额:0元"
End If

If Tables("主界面_Table2").Rows.Count>0 Then
    e.Form.Controls("销售记录").Text = "销售记录共:" & Tables("主界面_Table2").DataTable.Compute("Count(销售单号)") & "条"
Else
    e.Form.Controls("销售记录").Text = "销售记录共0条:"
End If
If Tables("主界面_Table3").Rows.Count>0 Then
    e.Form.Controls("销售明细记录").Text = "销售明细记录共:" & Tables("主界面_Table3").DataTable.Compute("Count(销售单号)") & "条"
Else
    e.Form.Controls("销售明细记录").Text = "销售明细记录共0条:"
End If

If Tables("主界面_会员资料").Rows.Count>0 Then
    e.Form.Controls("会员数量").Text ="目前有会员" & Tables("主界面_会员资料").DataTable.Compute("Count(会员卡号)") & "个"
Else
    e.Form.Controls("会员数量").Text ="目前有会员0个"
End If

If Tables("主界面_礼品赠送").Rows.Count>0 Then
    e.Form.Controls("赠送记录").Text = "赠送记录共:" & Tables("主界面_礼品赠送").DataTable.Compute("Count(赠送单号)") & "条"
Else
    e.Form.Controls("赠送记录").Text = "赠送记录共0条:"
End If
If Tables("主界面_礼品赠送明细").Rows.Count>0 Then
    e.Form.Controls("赠送明细记录").Text = "赠送明细记录共:" & Tables("主界面_礼品赠送明细").DataTable.Compute("Count(赠送单号)") & "条"
Else
    e.Form.Controls("赠送明细记录").Text = "赠送明细记录共0条:"
End If

Dim tv1 As WinForm.TreeView
tv1 =Forms("主界面").Controls("TreeView1")
tv1.BuildTree("类别", "类别|类别明细")

If Tables("主界面_商品资料").Rows.Count>0 Then
    e.Form.Controls("库存条数").Text = "商品共有:" & Tables("主界面_商品资料").DataTable.Compute("Count(商品编号)") & "条记录"
    e.Form.Controls("库存数量").Text = "商品共有数量:" & Tables("主界面_商品资料").DataTable.Compute("Sum(库存数量)")
Else
    e.Form.Controls("库存条数").Text = "商品共有:0条记录"
    e.Form.Controls("库存数量").Text = "商品共有数量:0"
End If

这两段代码都不涉及这个的呀,怎么回事?

主题：碰到问题了,老大看看怎么回事?