DataGridView 编程二

分类：VB作者：编程之家用户

DataGridView编程（二）

【转】http://blog.sina.com.cn/s/blog_4b4570920100c2a6.html~type=v5_one&label=rela_nextarticle

⑩ DataGridView 列顺序的调整GO TO TOP设定 DataGridView 的 AllowUserToOrderColumns 为 True 的时候，用户可以自由调整列的顺序。当用户改变列的顺序的时候，其本身的 Index 不会改变，但是 DisplayIndex 改变了。你也可以通过程序改变 DisplayIndex 来改变列的顺序。 列顺序发生改变时会引发 ColumnDisplayIndexChanged 事件：[VB.NET]' DataGridView1的ColumnDisplayIndexChanged事件处理方法Private Sub DataGridView1_ColumnDisplayIndexChanged(ByVal sender As Object,_ ByVal e As DataGridViewColumnEventArgs) _ Handles DataGridView1.ColumnDisplayIndexChanged Console.WriteLine("{0} 的位置改变到 {1} 。",_ e.Column.Name,e.Column.DisplayIndex)End Sub[C#]// DataGridView1的ColumnDisplayIndexChanged事件处理方法private void DataGridView1_ColumnDisplayIndexChanged(object sender,DataGridViewColumnEventArgs e){ Console.WriteLine("{0} 的位置改变到 {1} ",e.Column.Name,e.Column.DisplayIndex);}⑪ DataGridView 行头列头的单元格GO TO TOP[VB.NET]' DataGridView1的第一列列头内容DataGridView1.Columns(0).HeaderCell.Value = "第一列"' DataGridView1的第一行行头内容DataGridView1.Rows(0).HeaderCell.Value = "第一行"' DataGridView1的左上头部单元内容DataGridView1.TopLeftHeaderCell.Value = "左上"[C#]// 改变DataGridView1的第一列列头内容DataGridView1.Columns[0].HeaderCell.Value = "第一列";// 改变DataGridView1的第一行行头内容DataGridView1.Rows[0].HeaderCell.Value = "第一行";// 改变DataGridView1的左上头部单元内容DataGridView1.TopLeftHeaderCell.Value = "左上";另外你也可以通过 HeaderText 来改变他们的内容。[VB.NET]' 改变DataGridView1的第一列列头内容DataGridView1.Columns(0).HeaderText = "第一列"[C#]// 改变DataGridView1的第一列列头内容DataGridView1.Columns[0].HeaderText = "第一列";⑫ DataGridView 剪切板的操作GO TO TOPDataGridView.ClipboardCopyMode 属性被设定为 DataGridViewClipboardCopyMode.Disable 以外的情况时，「Ctrl + C」按下的时候，被选择的单元格的内容会拷贝到系统剪切板内。格式有： Text， UnicodeText，Html， CommaSeparatedValue。可以直接粘贴到 Excel 内。ClipboardCopyMode 还可以设定 Header部分是否拷贝： EnableAlwaysIncludeHeaderText 拷贝Header部分、EnableWithoutHeaderText 则不拷贝。默认是 EnableWithAutoHeaderText ， Header 如果选择了的话，就拷贝。1） 编程方式实现剪切板的拷贝Clipboard.SetDataObject(DataGridView1.GetClipboardContent())2) DataGridView 的数据粘贴实现剪切板的拷贝比较容易，但是实现 DataGridView 的直接粘贴就比较难了。「Ctrl + V」按下进行粘贴时，DataGridView 没有提供方法，只能自己实现。以下，是粘贴时简单的事例代码，将拷贝数据粘贴到以选择单元格开始的区域内。[VB.NET]' 当前单元格是否选择的判断If DataGridView1.CurrentCell Is Nothing Then ReturnEnd IfDim insertRowIndex As Integer = DataGridView1.CurrentCell.RowIndex' 获取剪切板的内容，并按行分割Dim pasteText As String = Clipboard.GetText()If String.IsNullOrEmpty(pasteText) Then ReturnEnd IfpasteText = pasteText.Replace(vbCrLf,vbLf)pasteText = pasteText.Replace(vbCr,vbLf)pasteText.TrimEnd(New Char() {vbLf})Dim lines As String() = pasteText.Split(vbLf)Dim isHeader As Boolean = TrueFor Each line As String In lines ' 是否是列头 If isHeader Then isHeader = False Else ' 按 Tab 分割数据 Dim vals As String() = line.Split(ControlChars.Tab) ' 判断列数是否统一 If vals.Length - 1 <> DataGridView1.ColumnCount Then Throw New ApplicationException("粘贴的列数不正确。") End If Dim row As DataGridViewRow = DataGridView1.Rows(insertRowIndex) ' 行头设定 row.HeaderCell.Value = vals(0) ' 单元格内容设定 Dim i As Integer For i = 0 To row.Cells.Count - 1 row.Cells(i).Value = vals((i + 1)) Next i ' DataGridView的行索引+1 insertRowIndex += 1 End IfNext line[C#]//当前单元格是否选择的判断if (DataGridView1.CurrentCell == null) return;int insertRowIndex = DataGridView1.CurrentCell.RowIndex;// 获取剪切板的内容，并按行分割string pasteText = Clipboard.GetText();if (string.IsNullOrEmpty(pasteText)) return;pasteText = pasteText.Replace(" "," ");pasteText = pasteText.Replace(' ',' ');pasteText.TrimEnd(new char[] { ' ' });string[] lines = pasteText.Split(' ');bool isHeader = true;foreach (string line in lines){ // 是否是列头 if (isHeader) { isHeader = false; continue; } // 按 Tab 分割数据 string[] vals = line.Split(' '); // 判断列数是否统一 if (vals.Length - 1 != DataGridView1.ColumnCount) throw new ApplicationException("粘贴的列数不正确。"); DataGridViewRow row = DataGridView1.Rows[insertRowIndex]; // 行头设定 row.HeaderCell.Value = vals[0]; // 单元格内容设定 for (int i = 0; i < row.Cells.Count; i++) { row.Cells[i].Value = vals[i + 1]; } // DataGridView的行索引+1 insertRowIndex++;}⑬ DataGridView 单元格的ToolTip的设置GO TO TOPDataGridView.ShowCellToolTips = True 的情况下， 单元格的 ToolTip 可以表示出来。对于单元格窄小，无法完全显示的单元格， ToolTip 可以显示必要的信息。1） 设定单元格的ToolTip内容[VB.NET]' 设定单元格的ToolTip内容DataGridView1(0,0).ToolTipText = "该单元格的内容不能修改"' 设定列头的单元格的ToolTip内容DataGridView1.Columns(0).ToolTipText = "该列只能输入数字"' 设定行头的单元格的ToolTip内容DataGridView1.Rows(0).HeaderCell.ToolTipText = "该行单元格内容不能修改"[C#]// 设定单元格的ToolTip内容DataGridView1[0,0].ToolTipText = "该单元格的内容不能修改";// 设定列头的单元格的ToolTip内容DataGridView1.Columns[0].ToolTipText = "该列只能输入数字";// 设定行头的单元格的ToolTip内容DataGridView1.Rows[0].HeaderCell.ToolTipText = "该行单元格内容不能修改";2） CellToolTipTextNeeded 事件在批量的单元格的 ToolTip 设定的时候，一个一个指定那么设定的效率比较低， 这时候可以利用 CellToolTipTextNeeded 事件。当单元格的 ToolTipText 变化的时候也会引发该事件。但是，当DataGridView的DataSource被指定且VirualMode=True的时候，该事件不会被引发。[VB.NET]' CellToolTipTextNeeded事件处理方法Private Sub DataGridView1_CellToolTipTextNeeded(ByVal sender As Object,_ ByVal e As DataGridViewCellToolTipTextNeededEventArgs) _ Handles DataGridView1.CellToolTipTextNeeded e.ToolTipText = e.ColumnIndex.ToString() + "," + e.RowIndex.ToString()End Sub[C#]// CellToolTipTextNeeded事件处理方法private void DataGridView1_CellToolTipTextNeeded(object sender,DataGridViewCellToolTipTextNeededEventArgs e){ e.ToolTipText = e.ColumnIndex.ToString() + "," + e.RowIndex.ToString();}⑭ DataGridView 的右键菜单（ContextMenuStrip）GO TO TOPDataGridView,DataGridViewColumn,DataGridViewRow,DataGridViewCell 有 ContextMenuStrip 属性。可以通过设定 ContextMenuStrip 对象来控制 DataGridView 的右键菜单的显示。 DataGridViewColumn 的 ContextMenuStrip 属性设定了除了列头以外的单元格的右键菜单。 DataGridViewRow 的 ContextMenuStrip 属性设定了除了行头以外的单元格的右键菜单。DataGridViewCell 的 ContextMenuStrip 属性设定了指定单元格的右键菜单。[VB.NET]' DataGridView 的 ContextMenuStrip 设定DataGridView1.ContextMenuStrip = Me.ContextMenuStrip1' 列的 ContextMenuStrip 设定DataGridView1.Columns(0).ContextMenuStrip = Me.ContextMenuStrip2' 列头的 ContextMenuStrip 设定DataGridView1.Columns(0).HeaderCell.ContextMenuStrip = Me.ContextMenuStrip2' 行的 ContextMenuStrip 设定DataGridView1.Rows(0).ContextMenuStrip = Me.ContextMenuStrip3' 单元格的 ContextMenuStrip 设定DataGridView1(0,0).ContextMenuStrip = Me.ContextMenuStrip4[C#]// DataGridView 的 ContextMenuStrip 设定DataGridView1.ContextMenuStrip = this.ContextMenuStrip1;// 列的 ContextMenuStrip 设定DataGridView1.Columns[0].ContextMenuStrip = this.ContextMenuStrip2;// 列头的 ContextMenuStrip 设定DataGridView1.Columns[0].HeaderCell.ContextMenuStrip = this.ContextMenuStrip2;// 行的 ContextMenuStrip 设定DataGridView1.Rows[0].ContextMenuStrip = this.ContextMenuStrip3;// 单元格的 ContextMenuStrip 设定DataGridView1[0,0].ContextMenuStrip = this.ContextMenuStrip4;对于单元格上的右键菜单的设定，优先顺序是：　Cell > Row > Column > DataGridView⇒ CellContextMenuStripNeeded、RowContextMenuStripNeeded　事件利用　CellContextMenuStripNeeded　事件可以设定单元格的右键菜单，尤其但需要右键菜单根据单元格值的变化而变化的时候。比起使用循环遍历，使用该事件来设定右键菜单的效率更高。但是，在DataGridView使用了DataSource绑定而且是 VirtualMode的时候，该事件将不被引发。[VB.NET]'　CellContextMenuStripNeeded事件处理方法Private Sub DataGridView1_CellContextMenuStripNeeded( _ ByVal sender As Object,_ ByVal e As DataGridViewCellContextMenuStripNeededEventArgs) _ Handles DataGridView1.CellContextMenuStripNeeded Dim dgv As DataGridView = CType(sender,DataGridView) If e.RowIndex < 0 Then '　列头的ContextMenuStrip设定 e.ContextMenuStrip = Me.ContextMenuStrip1 ElseIf e.ColumnIndex < 0 Then '　行头的ContextMenuStrip设定 e.ContextMenuStrip = Me.ContextMenuStrip2 ElseIf TypeOf (dgv(e.ColumnIndex,e.RowIndex).Value) Is Integer Then '　如果单元格值是整数时 e.ContextMenuStrip = Me.ContextMenuStrip3 End IfEnd Sub[C#]//　CellContextMenuStripNeeded事件处理方法private void DataGridView1_CellContextMenuStripNeeded(object sender,DataGridViewCellContextMenuStripNeededEventArgs e){ DataGridView dgv = (DataGridView)sender; if (e.RowIndex < 0) { //　列头的ContextMenuStrip设定 e.ContextMenuStrip = this.ContextMenuStrip1; } else if (e.ColumnIndex < 0) { //　行头的ContextMenuStrip设定 e.ContextMenuStrip = this.ContextMenuStrip2; } else if (dgv[e.ColumnIndex,e.RowIndex].Value is int) { //　如果单元格值是整数时 e.ContextMenuStrip = this.ContextMenuStrip3; }}同样，可以通过　RowContextMenuStripNeeded　事件来设定行的右键菜单。[VB.NET]'　RowContextMenuStripNeeded事件处理方法Private Sub DataGridView1_RowContextMenuStripNeeded( _ ByVal sender As Object,_ ByVal e As DataGridViewRowContextMenuStripNeededEventArgs) _ Handles DataGridView1.RowContextMenuStripNeeded Dim dgv As DataGridView = CType(sender,DataGridView) '　当"Column1"列是Bool型且为True时、设定其的ContextMenuStrip Dim boolVal As Object = dgv("Column1",e.RowIndex).Value Console.WriteLine(boolVal) If TypeOf boolVal Is Boolean AndAlso CBool(boolVal) Then e.ContextMenuStrip = Me.ContextMenuStrip1 End IfEnd Sub[C#]//　RowContextMenuStripNeeded事件处理方法private void DataGridView1_RowContextMenuStripNeeded(object sender,DataGridViewRowContextMenuStripNeededEventArgs e){ DataGridView dgv = (DataGridView)sender; //　当"Column1"列是Bool型且为True时、设定其的ContextMenuStrip object boolVal = dgv["Column1",e.RowIndex].Value; Console.WriteLine(boolVal); if (boolVal is bool && (bool)boolVal) { e.ContextMenuStrip = this.ContextMenuStrip1; }}CellContextMenuStripNeeded　事件处理方法的参数中、「e.ColumnIndex=-1」表示行头、「e.RowIndex=-1」表示列头。RowContextMenuStripNeeded则不存在「e.RowIndex=-1」的情况。⑮ DataGridView 的单元格的边框、 网格线样式的设定GO TO TOP1) DataGridView 的边框线样式的设定DataGridView 的边框线的样式是通过 DataGridView.BorderStyle 属性来设定的。 BorderStyle 属性设定值是一个BorderStyle 枚举： FixedSingle（单线，默认）、Fixed3D、None。2) 单元格的边框线样式的设定单元格的边框线的样式是通过 DataGridView.CellBorderStyle 属性来设定的。 CellBorderStyle 属性设定值是DataGridViewCellBorderStyle 枚举。（详细参见 MSDN）另外，通过 DataGridView.ColumnHeadersBorderStyle 和 RowHeadersBorderStyle 属性可以修改 DataGridView 的头部的单元格边框线样式。 属性设定值是 DataGridViewHeaderBorderStyle 枚举。（详细参见 MSDN）3） 单元格的边框颜色的设定单元格的边框线的颜色可以通过 DataGridView.GridColor 属性来设定的。默认是 ControlDarkDark 。但是只有在 CellBorderStyle 被设定为 Single、SingleHorizontal、SingleVertical 的条件下才能改变其边框线的颜色。同样，ColumnHeadersBorderStyle 以及 RowHeadersBorderStyle 只有在被设定为 Single 时，才能改变颜色。4） 单元格的上下左右的边框线式样的单独设定CellBorderStyle只能设定单元格全部边框线的式样。要单独改变单元格某一边边框式样的话，需要用到DataGridView.AdvancedCellBorderStyle属性。如示例：[VB.NET]' 单元格的上边和左边线设为二重线' 单元格的下边和右边线设为单重线DataGridView1.AdvancedCellBorderStyle.Top = _ DataGridViewAdvancedCellBorderStyle.InsetDoubleDataGridView1.AdvancedCellBorderStyle.Right = _ DataGridViewAdvancedCellBorderStyle.InsetDataGridView1.AdvancedCellBorderStyle.Bottom = _ DataGridViewAdvancedCellBorderStyle.InsetDataGridView1.AdvancedCellBorderStyle.Left = _ DataGridViewAdvancedCellBorderStyle.InsetDouble同样，设定行头单元格的属性是： AdvancedRowHeadersBorderStyle，设定列头单元格属性是：AdvancedColumnHeadersBorderStyle。⑯ DataGridView 单元格表示值的自定义GO TO TOP通过CellFormatting事件，可以自定义单元格的表示值。（比如：值为Error的时候，单元格被设定为红色）下面的示例：将“Colmn1”列的值改为大写。[VB.NET]'CellFormatting 事件处理方法Private Sub DataGridView1_CellFormatting(ByVal sender As Object,_ ByVal e As DataGridViewCellFormattingEventArgs) _ Handles DataGridView1.CellFormatting Dim dgv As DataGridView = CType(sender,DataGridView) ' 如果单元格是“Column1”列的单元格 If dgv.Columns(e.ColumnIndex).Name = "Column1" AndAlso _ TypeOf e.Value Is String Then ' 将单元格值改为大写 Dim str As String = e.Value.ToString() e.Value = str.ToUpper() ' 应用该Format，Format完毕。 e.FormattingApplied = True End IfEnd Sub[C#]//CellFormatting 事件处理方法private void DataGridView1_CellFormatting(object sender,DataGridViewCellFormattingEventArgs e){ DataGridView dgv = (DataGridView)sender; // 如果单元格是“Column1”列的单元格 if (dgv.Columns[e.ColumnIndex].Name == "Column1" && e.Value is string) { // 将单元格值改为大写 string str = e.Value.ToString(); e.Value = str.ToUpper(); // 应用该Format，Format完毕。 e.FormattingApplied = true; }}CellFormatting事件的DataGridViewCellFormattingEventArgs对象的Value属性一开始保存着未被格式化的值。当Value属性被设定表示用的文本之后，把FormattingApplied属性做为True，告知DataGridView文本已经格式化完毕。如果不这样做的话，DataGridView会根据已经设定的Format，NullValue， DataSourceNullValue，FormatProvider属性会将Value属性会被重新格式化一遍。⑰ DataGridView 用户输入时，单元格输入值的设定GO TO TOP通过 DataGridView.CellParsing 事件可以设定用户输入的值。下面的示例：当输入英文文本内容的时候，立即被改变为大写。[VB.NET]'CellParsing 事件处理方法Private Sub DataGridView1_CellParsing(ByVal sender As Object,_ ByVal e As DataGridViewCellParsingEventArgs) _ Handles DataGridView1.CellParsing Dim dgv As DataGridView = CType(sender,DataGridView) ' 单元格列为“Column1”时 If dgv.Columns(e.ColumnIndex).Name = "Column1" AndAlso _ e.DesiredType Is GetType(String) Then ' 将单元格值设为大写 e.Value = e.Value.ToString().ToUpper() ' 解析完毕 e.ParsingApplied = True End IfEnd Sub[C#]//CellParsing 事件处理方法private void DataGridView1_CellParsing(object sender,DataGridViewCellParsingEventArgs e){ DataGridView dgv = (DataGridView)sender; //单元格列为“Column1”时 if (dgv.Columns[e.ColumnIndex].Name == "Column1" && e.DesiredType == typeof(string)) { //将单元格值设为大写 e.Value = e.Value.ToString().ToUpper(); //解析完毕 e.ParsingApplied = true; }}⑱ DataGridView 新加行的默认值的设定GO TO TOP需要指定新加行的默认值的时候，可以在DataGridView.DefaultValuesNeeded事件里处理。在该事件中处理除了可以设定默认值以外，还可以指定某些特定的单元格的ReadOnly属性等。[VB.NET]' DefaultValuesNeeded 事件处理方法Private Sub DataGridView1_DefaultValuesNeeded(ByVal sender As Object,_ ByVal e As DataGridViewRowEventArgs) _ Handles DataGridView1.DefaultValuesNeeded ' 设定单元格默认值 e.Row.Cells("Column1").Value = 0 e.Row.Cells("Column2").Value = "-"End Sub[C#]// DefaultValuesNeeded 事件处理方法private void DataGridView1_DefaultValuesNeeded(object sender,DataGridViewRowEventArgs e){ // 设定单元格的默认值 e.Row.Cells["Column1"].Value = 0; e.Row.Cells["Column2"].Value = "-";}

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。

相关推荐

VB Format函数
Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强制返回为文本 -------------------------------- 数字类型的格式化 --------------------------------     固定格式参数：     General Number 普通数字，如可以用来去掉千位分隔号     format$("100,1
vb6/ASP FORMAT MM/DD/YYYY
VB6或者ASP 格式化时间为 MM/dd/yyyy 格式，竟然没有好的办法， Format 或者FormatDateTime 竟然结果和系统设置的区域语言的日期和时间格式相关。意思是尽管你用诸如 Format(Now, "MM/dd/yyyy")，如果系统的设置格式区域语言的日期和时间格式分隔符是"-",那他还会显示为 MM-dd-yyyy     只有拼凑： <%response.write
VB.net 捕获项目全局异常
在项目中添加如下代码：新建窗口来显示异常信息。 Namespace My ‘全局错误处理，新的解决方案直接添加本ApplicationEvents.vb 到工程即可 ‘添加后还需要一个From用来显示错误。如果到这步还不会则需要先打好基础啦 ‘======================================================== ‘以下事件
实现用VB.Net/(C#)开发K/3 BOS 插件的真正可行方法
转了这一篇文章，原来一直想用C#做k3的插件开发，vb没有C#用的爽呀，这篇文章写与2011年，看来我以前没有认真去找这个方法呀。 https://blog.csdn.net/chzjxgd/article/details/6176325 金蝶K3 BOS的插件官方是用VB6编写的，如果  能用.Net下的语言工具开发BOS插件是一件很愉快的事情，其中缘由不言而喻，而本文则是个人首创，实现在了用V
vb，wps，excel 分裂
Sub 分列() ‘以空格为分隔符，连续空格只算1个。对所选中的单元格进行处理 Dim m As Range, tmpStr As String, s As String Dim x As Integer, y As Integer, subStr As String If MsgBox("确定要分列处理吗？请确定分列的数据会覆盖它后面的单元格！", _
VB文件 hash 查看器
  窗体代码 1 Private Sub Text1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) 2 Dim path As String, hash As String 3 For Each fil
VB.NET MYSQL DataGridView 增删改查INSERT,SELECT,UPDATE,DELETE
  Imports MySql.Data.MySqlClient Public Class Form1 ‘ GLOBAL DECLARATIONS Dim conString As String = "Server=localhost;Database=net2;Uid=root;Pwd=123456;" Dim con As New MySqlConnection
VB.NET 使用ADODB連接資料庫滙出到EXCEL
‘導入命名空間 Imports ADODB Imports Microsoft.Office.Interop   Private Sub A1() Dim Sql As String Dim Cnn As New ADODB.Connection Dim Rs As New ADODB.Recordset Dim S As String   S = "Provider=OraOLEDB.Oracl
vb.net 多线程運用 ping
Imports System.IO Imports System.Threading Imports System.Diagnostics Public Class Form1 Dim A(254) As String    Function ping(ByVal IP As Integer) As String Dim IPAddress As String IPAddress = "10.0.
VB等待进程结束
VB运行EXE程序，并等待其运行结束 参考：https://blog.csdn.net/useway/article/details/5494084 Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long Pr
vb中去掉string数组的一部分
今天碰到一个问题，登陆的时候，如果不需要验证手机号为空，则不去验证手机号 因为登陆的时候所有的验证信息都存放在一个数组里 Dim CheckUserInfo() As String ={UserBirthday, SecEmail, UserMob, UserSex, RealNameFirst, RealName, CheckCardID, CheckCardType, Contactemail
VB如何连接SQL Server数据库
在VB6.0中，数据访问接口有三种： 1、ActiveX数据对象（ADO） 2、远程数据对象（RDO） 3、数据访问对象（DAO） 1.使用ADO（ActiveX Data Objec，ActiveX数据对象）连接SQL Server 1）使用ADO控件连接 使用ADO控件的ConnectionString属性就可以连接SQL Server，该属性包含一个由分号分隔的argument=value语
Visual Basic 6.0VB6.0详细安装过程
注：大家如果没有VB6.0的安装文件，可自行百度一下下载，一般文件大小在200M左右的均为完整版的软件，可以使用。   特别提示：安装此软件的时候最好退出360杀毒软件（包括360安全卫士，电脑管家等，如果电脑上有这些软件的话），因为现如今的360杀毒软件直接会对VB6.0软件误报，这样的话就可能会在安装过程中被误报阻止而导致安装失败，或者是安装后缺乏很多必须的组件（其它的杀毒软件或安全卫士之类的
使用VB6读取数据库资源并发送邮件原创
Private Sub Form_Load() Call conndb End Sub Private Function conndb() Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim strCn, sql As String Dim db_host As String Dim db_user As String
POS VB
  PPSM06S70:  Add  moddate  EDITSPRINTJOB:  MAX(TO_CHAR(ETRN.MODDATE, ‘yyyy/mm/dd/HH24:MI AM‘)) ACTUAL_SHIPDATE   4.Test Scenario (1) ：Query SQL Test DN:8016578337 SELECT CTRN.TKCTID TRUCK_ID,        
vb.net 水晶報表CrystalReport 動態設定資料庫來源
  沒有出現CrystalReportViewer時,須安裝CRforVS_13_0. 新增1個數據集,新增1個數據表,添加二列,列名要和資料庫名一樣. 修改目標Framework 修改app.config, <startup >改成<startup useLegacyV2RuntimeActivationPolicy ="true">  CrystalReport1.rpt增加數據庫專家 在表單
VB.net 与线程
Imports System.Threading Imports System Public Class Form1 Dim th1, th2 As Thread Public Sub Method1() Dim i As Integer For i = 1 To 100 If Me.Label1.BackColor =
vb.net Process32First和Module32First
Friend Const PROCESS_ALL_ACCESS = &H1F0FFF = 2035711 Friend Const PROCESS_VM_READ = &H10 Friend Const PROCESS_VM_WRITE = &H20 Friend Const PAGE_READONLY = &H2 Friend Const PAGE_READWRITE = &H4 Friend
vb.net 分割byte数组的方法SplitBytes
以下代码随手写的 并没有大量测试 效率也有待提升 如果需要C#的请自行转换 Function SplitBytes(Data As Byte(), Delimiter As Byte()) As List(Of Byte()) Dim i = 0 Dim List As New List(Of Byte()) Dim bytes As New
VB.NET连接SQL_Server实例
Imports System.Data.SqlClient Public Class Form1 REM Public conn1 As SqlConnection = New SqlConnection("server=.; Integrated Security=False;Initial Catalog= mydatabase1; User ID= sa;password")
pythonJavaScriptjavaHTMLPHPreactjsC#AndroidCSSNode.jssqlrpython-3.xMysqLjQueryc++pandasFlutterangularIOSdjangolinuxswifttypescript路由器JSON路由器设置无线路由器h3c华三华三路由器设置华三路由器电脑软件教程arraysdocker软件图文教程Cvue.jslaravelspring-boot