谢谢，还有一段代码也出现这个问题，错误出现在哈文字体添加的地方，本人写代码水平有限，查找不到错误字段，请老师看看
Dim Mes As String
cmd1.CommandText = "select * Fro m {main} Where 机器号 = '" & ComputerId & "'"
dt = cmd1.ExecuteReader()
Dim fnt1 As New Font("KazakhSoft korkem",9)'加入哈文字体
Dim SB1 As C1.Win.C1Ribbon.C1StatusBar =
BaseMainform.Controls("C1StatusBar1")'加入哈文字体
SB1.RightPaneItems("Mes").Font=fnt1 '加入哈文字体
If dt.DataRows.Count > 0 Then
_dw = dt.DataRows(0)("公司名称")
_dwdz = dt.DataRows(0)("地址")
_dwdh = dt.DataRows(0)("联系电话")
_bbdyj = dt.DataRows(0)("报表打印机")
_myl = dt.DataRows(0)("免预览")
_zzlx = dt.DataRows(0)("纸张类型")
_zzk = dt.DataRows(0)("纸张宽")
_zzg = dt.DataRows(0)("纸张高")
_zbj =dt.DataRows(0)("左边距")
_ybj = dt.DataRows(0)("右边距")
_sbj = dt.DataRows(0)("上边距")
_xbj = dt.DataRows(0)("下边距")
Mes = "欢迎哈萨克医电子病历管理系统!"
& "????? ???????
????? ?????? ??????????? ??????? ??????????????? ?????????"
& "当前用户:"
End If
Forms("用户登录").Open()
If _UserNo = "" Then
Syscmd.Project.Exit()
Return '这个要加上,因为既然要退出,就不应该再执行后面的初始化代码了,否则会出错
End If
加好友 
发短信
Post By：2016/4/28 15:56:00 [只看该作者]
