寻求技术支持! 建议使用SQL语句.http://www.wzjcw.net/vbgood/taishan/index.html有代码可以参考 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 to dbcontrols(泰山):不详细谁能给个代码示例??? Dim I ReDim CalcArray (0 to DataGrid1.SelBooks.Count - 1) For I = 0 to DataGrid1.SelBooks.Count -1 '在选定的行数组中,把当前行的值 '放入相应的 CalcArray 单元格。 CalcArray(I) = _ DataGrid1.Columns(1).CellValue(DataGrid1.SelBooks(I)) Next I/*自己看看吧*/ to myxiaopei(天神):多谢,但是你的代码不是我所希望的,遗憾。 http://www.wzjcw.net/vbgood/taishan/index.html有代码可以参考,看看那个DATAGRID模拟主细表】源代码啊 dbcontrols(泰山) :看来是挺详细的,过了。呵呵,多谢了。分数一会送上。 BOF或EOF的问题 水晶报表数据更新 急!!!!请问大家Mschart这个控件在VB哪里,需要添加吗???? 一个程序跟踪调试的问题 封装程序的问题 如何在WebBrowser中点击链接仍然从WebBrowser中显示? VB与SQL连接的特别基础的问题 国庆过后要去青海西宁出差,知情者入,UP有分 如何把图存入数据库? VB6实现海康摄像机字符叠加 如何能够截获任何一标准控件获得焦点时的绘制状态? 我有一个excel的数据库,用data控件连接,可是Readonly属性改成false,就不能连接,为什么?
谁能给个代码示例???
ReDim CalcArray (0 to DataGrid1.SelBooks.Count - 1)
For I = 0 to DataGrid1.SelBooks.Count -1
'在选定的行数组中,把当前行的值
'放入相应的 CalcArray 单元格。
CalcArray(I) = _
DataGrid1.Columns(1).CellValue(DataGrid1.SelBooks(I))
Next I/*自己看看吧*/