VIP会员
购物车
私信
发表新帖
立即签到
关注
回复
支持(
反对( 首页上一页 1 下一页尾页 1 条记录 1/1页
技术大全光盘sl\19\22的问题
发表在VB答疑区
2010-04-18
是否精华
是
否
版块置顶:
是
否
麻烦编辑老师给予解答
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Form_Load()
con.Open " Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=book"
rs.Open "select * from 作者", con, adOpenKeyset, adLockOptimistic
Set MSHFlexGrid2.DataSource = rs
rs.Close
con.Close
'使第一列较窄?
MSHFlexGrid1.ColWidth(0) = MSHFlexGrid1.ColWidth(0) / 2
'初始化编辑框
[font color=#FF0000]txtEdit = ""[/font]
MSHFlexGrid1.Rows = 101
MSHFlexGrid1.Cols = 5
'设置列标头。
[strong]s$ = [/strong]"^|^编号 |^姓名 |^电话 |^住址 |^城市"
MSHFlexGrid1.FormatString = s$
End Sub
以上设红色字的变量是如何产生的(当用要求变量声明时运行会出错)
即txtEdit=""和s$以及编号前的管道符^|^为两个居中符号而其它的字段只有一个
麻烦编辑老师给予解答
谢谢
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Form_Load()
con.Open " Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=book"
rs.Open "select * from 作者", con, adOpenKeyset, adLockOptimistic
Set MSHFlexGrid2.DataSource = rs
rs.Close
con.Close
'使第一列较窄?
MSHFlexGrid1.ColWidth(0) = MSHFlexGrid1.ColWidth(0) / 2
'初始化编辑框
[font color=#FF0000]txtEdit = ""[/font]
MSHFlexGrid1.Rows = 101
MSHFlexGrid1.Cols = 5
'设置列标头。
[strong]s$ = [/strong]"^|^编号 |^姓名 |^电话 |^住址 |^城市"
MSHFlexGrid1.FormatString = s$
End Sub
以上设红色字的变量是如何产生的(当用要求变量声明时运行会出错)
即txtEdit=""和s$以及编号前的管道符^|^为两个居中符号而其它的字段只有一个
麻烦编辑老师给予解答
谢谢
分享到：
