[解决]运行时动态的增加和删除Columns

最新推荐文章于 2022-02-08 12:08:09 发布
原创 最新推荐文章于 2022-02-08 12:08:09 发布 · 1.2k 阅读 · 0 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
文章标签：

#datagrid #postback #数据库

博主叶凯试用VS.NET，介绍运行时动态显示/隐藏DataGrid列的要点。一是将DataGrid1的AutoGenerateColumns设为False并手动添加列，二是在!IsPostBack中初始化CheckBoxList等控件。还提及附件解决方案需修改数据库连接字符串。
叶凯：
    昨晚装上VS.NET试了一下，运行时动态的显示/隐藏Columns不算难啊。
    有两点也许容易忽视，一个是要把DataGrid1的AutoGenerateColumns设成"False"，然后
手动添加列，否则运行时DataGrid1.Columns.Count=0。
    另一个是!IsPostBack中初始化CheckBoxList，或者其他类似控件，否则PostBack后又和
初始化的一样了。（设置AutoPostBack“易用性”比较好，我个人认为）
  
附件是解决方案打包，数据库连接字符串需要修改（用的是各种教程中最喜欢的Northwind库
，呵呵）。
http://civ3.blogchina.com/inc/DataGridColm.xsl
怎么在JavaFx的TableView中动态地添加数据？
**My Coding Family**
05-31 1245
ok，以上就是我这期的Bug修复内容啦，如果还想查找更多解决方案，你可以看看我专门收集Bug及提供解决方案的专栏「Bug调优」，都是实战中碰到的Bug，希望对你有所帮助。到此，咱们下期拜拜。码字不易，如果这篇文章对你有所帮助，帮忙给bugj菌来个，您的支持就是我坚持写作分享知识点传播技术的最大动力。「猿圈奇妙屋」；
Mybatis中利用动态SQL对数据库进行优化和安全检查
AI天才研究院
07-29 2561
MyBatis 是一款优秀的持久层框架，它支持自定义 SQL、存储过程以及高级映射。但是 MyBatis 也存在着不少性能和安全方面的问题。Mybatis 本身功能强大且易用，但同时也可能给系统带来很多隐患和风险。为了更好地保障系统的安全性和运行效率，本篇文章将结合 Mybatis 的一些特性，通过动态 SQL 对数据库进行优化和安全检查的方法进行探讨。什么是动态 SQL？
d2-crud中columns重新渲染不生效
cxk_ctrl的博客
02-08 1090
问题： d2-crud无法动态控制某一列的显隐，想要更新colums，重新赋值后，发现只有title发生了变化，key值并未变化，用v-if控制表格重新加载也不生效，查找文档并未发现有重绘方法。 解决方案： 给d2-crud添加key,需要重新渲染时更新key值即可，代码如下 <d2-crud ref="d2Crud" :data="data" :columns="columns" :key="dataType" :loading="load
datagrid动态加载列（续）
Grace
04-24 3198
之前有一篇博客写到了如何动态加载datagrid的列，上次只是介绍如何动态动态表头，并没有将数据添加到datagrid中，本次主要来说如何将数据库中的数据，动态添加到每一列中。      先说一下为什么会需要拼接数据，由于我们datagrid中显示的一条数据，可能对应数据库中多条数据，这就需要将多条数据拼接成一条数据，对应显示在表格中。如图所示：      一、通过后台查询查到了多条数
wpf中datagrid自动生成列，并进行字段绑定
after_threee笔记
05-22 4740
在工作中遇见的，需要动态生成列，所以，这里随便写一个很简单的，欢迎补充，如有引用或转载，请标注说明，谢谢！！！ 今天遇见一个情况，同一个功能，因为登录人员不同，显示不同的内容，为了保证扩展性，就想到了datagrid列自动生成这种情况，通过调用后台接口控制自动生成列的属性，代码比较简单，只是为了记录基础的信息，在这里写下来，欢迎同行指正 1.代码 1.1前端xaml代码 <Window...
AutoGenerateColumns的使用属性介绍
firetaker的专栏
04-16 1万+
AutoGenerateColumns时datagridview中不在属性面板中显示设置的一个属性，就是说只能在后台显示的调用设置。例如：this.dataGridView1.AutoGenerateColumns = false;注意：设置时一定要在datagridview数据绑定前使用上面的设置。作用是限制当前datagridview是否自动生成列
Extjs中grid隐藏列信息，同时删除表头勾选
abc_ABC123A的博客
04-01 1050
Extjs中grid隐藏列信息，同时删除表头勾选有时候我们在编写grid的时候，会把后端传过来的id等信息暂时存放在grid中，方便做其他的操作，Extjs是可以隐藏这个列的，只需要在columns中添加属性hidden：true即可，但是这还是可以通过表头下拉勾选让其展示的，如果要让其在下拉勾选中也不展示怎么操作呢？只需要加hideable：false（defalut：true） 有时候我们在编...
c# tablelayoutpanel 动态增加和删除列 已测试通过 动态合并单元格 动态添加控件
11-10
总之，`TableLayoutPanel`的动态管理能力使得开发者能够构建更灵活的用户界面，通过增加和删除列适应不同场景，通过合并单元格实现复杂布局，而动态添加控件则有助于根据程序运行时的需求创建或更新UI。这些都是C# ...
运行后报错： You are trying to merge on object and float64 columns. If you wish to proceed you should use pd.concat
06-26
我们遇到了在合并DataFrame时由于列类型不匹配（例如object和float64）导致的错误。在Pandas中，`merge`操作要求用于连接的列具有相同的数据类型，否则会引发错误。###问题原因当两个DataFrame的合并键（on）列数据...
sqlyog表添加列_VBA数据库解决方案第11讲，如何动态建立数据库和数据库表
weixin_39630095的博客
12-14 525
大家好，今日继续讲解VBA与数据库解决方案的第11讲内容，如何动态地建立数据库。VBA代码数据库解决方案一书写到这里，已经讲了很多，相信大家对于数据库的概念应该了然于胸了。我们也开始逐步讲解数据库的实际操作了，有的朋友说你示例总数据库是事先建立的，是否可以用VBA代码动态建立数据库呢？今日的这讲我们就解决这个问题。在程序中动态的建立数据库是完全可以实现的，今日的内容需要用到的知识点为ADOX，我们...
Easui中datagrid实现动态控制columns
hmy1106的专栏
04-30 1671
转载自：http://blog.youkuaiyun.com/majian_1987/article/details/8126168 easyui datagrid 定义列的方式通常是： [javascript] view plain copy $('#grid').datagrid({columns:[[       {field:'f1',tit
d2-crud-plus行内编辑
fanfan的博客
07-05 1507
一、 crud.js import dayjs from 'dayjs' import { GetDetail } from './api' import { request } from '@/api/service' export const crudOptions = (vm) => { return { rowHandle: { // width: 230, // dropdown: { // 操作列折叠 // atLeast: 1, /
Iview table 动态增加column 增加新栏目
俞祥胜的.Net进阶之旅
03-21 8259
根据项目需要，在业务中，有时候需要多出几列新数据，之前一直思考怎么通过render实现，后台看到别人的帖子想多了， <Table border :columns="tblcolumns" :data="datalist" :row-class-name="rowClassName" :key="index"></table> tblcolumns定义的时候也是数组，我只...
python | 给DataFrame增加index行名和columns列名
热门推荐
求知：数据科学家之路
08-03 10万+
在工作中遇到需要对DataFrame加上列名和行名，不然会报错 开始的数据是这样的 需要的格式是这样的： 其实，需要做的就是添加行名和列名，下面开始操作下。# a是DataFrame格式的数据集 a.index.name = 'date' a.columns.name = 'code'这样就可以修改过来。
hive--add columns问题
qq_26645205的博客
10-25 5679
hive在新加列(add columns)后，再load数据时，理论上来说新增的列如果有数据的话会展示出来； 但是add和load后没有展示出对应的数据，hdfs的文件里是有对应的数据的，desc表结构时也有对应的字段； 但是在查看元数据时，发现表的元数据没有发生变化，没有新增加进这一列，具体原因还未知； 最终也没有找到具体的原因，个人觉得是元数据库的同步问题，类似于oracle的脏读，没有实
项目中学习---动态添加列
My Devil's Cry
10-29 1695
最近做项目的时候，总会遇到，调用接口返回的list中不存在此的字段，可是需求缺要求显示某个字段。比如，需求要求显示的列表中有：订单状态和商品名称这两列，可是调用接口返回的值中只有订单id和商品id，那么我改怎么处理呢？      跟着同事学 一手，感觉还挺好用：             $.ajax({ type: "post",
ExtJS4 动态添加columns常用方法
夜晓星的博客
01-17 3176
1.使用Gird加载完后使用  Gird.headerCt.insert()方式进行动态添加   首先Gird里可以先定义固定的column行   然后从后台查询到动态的数据集dataParam   再利用Gird.headerCt.insert（）的方式添加colum:        for(var key in dataParam) {              var value...
当打开文件时报运行时错误‘9’ 下标越界
最新发布
07-15
<think>问题分析：运行时错误'9'下标越界通常是因为代码中引用了不存在的表。在`Workbook_Open`事件中，我们使用了`ThisWorkbook.Sheets("Sheet1")`，如果工作簿中没有名为"Sheet1"的工作表，就会引发此错误。 解决方案： 1. 确保存在名为"Sheet1"的工作表，或修改代码中的工作表名称与实际名称一致。 2. 或者使用工作表的索引号（如`Sheets(1)`）但要注意索引可能因用户操作而改变，所以建议使用代码名称（CodeName）。 修改建议：使用更可靠的方式引用工作表，例如通过CodeName（在VBA编辑器中工作表对象的名称，如`Sheet1`，注意不带引号）来引用，这样即使工作表标签名被修改，CodeName通常不会变（除非在VBA工程中修改）。 修改后的`Workbook_Open`事件代码： ```vba Private Sub Workbook_Open() Dim ws As Worksheet ' 使用CodeName引用工作表，假设工作表的CodeName为Sheet1（默认第一个工作表为Sheet1） Set ws = Sheet1 ' 注意：这里直接使用CodeName，不需要用字符串 Dim lastRow As Long With ws ' 清除旧按钮 .Columns("C").ClearContents ' 添加新按钮 lastRow = .Cells(.Rows.Count, "B").End(xlUp).Row If lastRow > 1 Then .Range("C2:C" & lastRow).Value = "删除" .Columns("C").HorizontalAlignment = xlCenter End If End With End Sub ``` 如果用户的工作表CodeName不是Sheet1，则需要根据实际情况修改。另外，如果用户有多个工作表，需要确保操作的是正确的工作表。 另外，在`Sheet1`的代码中，我们使用了`Columns("C")`等操作，如果工作表不是活动状态，可能不会正确执行。但`Workbook_Open`中我们指定了工作表，所以没问题。 如果问题仍然存在，可以添加错误处理，避免程序中断： ```vba Private Sub Workbook_Open() On Error Resume Next ' 忽略错误继续执行（不推荐，但可以防止弹出错误） ' ... 原有代码 ... On Error GoTo 0 ' 恢复错误处理 End Sub ``` 但更好的做法是检查工作表是否存在： ```vba Private Sub Workbook_Open() Dim ws As Worksheet On Error Resume Next Set ws = ThisWorkbook.Sheets("Sheet1") ' 或者使用用户实际的工作表名称 On Error GoTo 0 If ws Is Nothing Then MsgBox "未找到工作表Sheet1，请检查！", vbExclamation Exit Sub End If ' 剩余代码... End Sub ``` 根据用户需求选择合适的方法。 由于用户之前要求使用"Sheet1"，我们假设工作表名称为"Sheet1"，但实际中可能不同。因此，我们提供两种方法：使用CodeName（推荐）或使用工作表名称（但需要用户确保名称匹配）。 完整修改后的`Workbook_Open`事件（使用工作表名称并添加错误处理）： ```vba Private Sub Workbook_Open() Dim ws As Worksheet On Error Resume Next Set ws = ThisWorkbook.Sheets("Sheet1") ' 使用工作表名称 On Error GoTo 0 If ws Is Nothing Then MsgBox "未找到工作表Sheet1，请将您的工作表命名为'Sheet1'或修改代码中的名称。", vbExclamation Exit Sub End If Dim lastRow As Long With ws ' 清除旧按钮 .Columns("C").ClearContents ' 添加新按钮 lastRow = .Cells(.Rows.Count, "B").End(xlUp).Row If lastRow > 1 Then .Range("C2:C" & lastRow).Value = "删除" .Columns("C").HorizontalAlignment = xlCenter End If End With End Sub ``` 请用户根据实际情况修改工作表名称。 另外，确保在`ThisWorkbook`的代码窗口中粘贴上述代码，而不是在某个工作表模块中。 如果用户的工作表名称不是"Sheet1"，只需将代码中的`Sheets("Sheet1")`改为实际名称即可。 注意：在`Sheet1`的代码中，我们使用了`Columns("C")`等操作，这些操作都是基于该工作表（ws）的，所以不会影响其他工作表。 最后，如果用户希望使用其他名称的工作表，请修改代码中的名称。 我们重新提供完整的`Workbook_Open`事件代码（使用工作表名称并带错误检查）供用户替换。 如果用户仍然遇到问题，请检查工作簿中是否存在名为"Sheet1"的工作表，或者根据实际名称修改代码。 由于用户之前要求的是在"Sheet1"上操作，所以这里假设工作表名称为"Sheet1"。 如果用户没有使用"Sheet1"这个名称，请自行修改代码中的名称。 另外，在`Sheet1`的代码模块中，我们使用了`Worksheet_Change`事件，这个事件是绑定到具体工作表的，所以无论工作表叫什么名字，只要代码是在该工作表的模块中，就不会影响。 因此，主要问题在`Workbook_Open`事件中引用工作表的方式。 修改后的完整代码（ThisWorkbook模块）：</think>您遇到的运行时错误“9”（下标越界）通常是因为代码中引用了不存在的工作表或单元格。以下是完整修复方案： ```vba ' 在ThisWorkbook模块中粘贴的代码 Private Sub Workbook_Open() On Error Resume Next ' 添加错误处理 Dim ws As Worksheet Dim lastRow As Long ' 使用更安全的方式获取工作表 Set ws = Nothing For Each sht In ThisWorkbook.Sheets If sht.Name = "Sheet1" Then Set ws = sht Exit For End If Next If ws Is Nothing Then MsgBox "未找到Sheet1工作表，请创建或重命名工作表", vbExclamation Exit Sub End If With ws ' 清除旧按钮 .Columns("C").ClearContents ' 添加新按钮 lastRow = .Cells(.Rows.Count, "B").End(xlUp).Row If lastRow > 1 Then .Range("C2:C" & lastRow).Value = "删除" .Columns("C").HorizontalAlignment = xlCenter End If End With End Sub ' 在Sheet1模块中粘贴的代码 Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo ErrHandler Application.EnableEvents = False ' 1. 检测名称列编辑 (B列) If Not Intersect(Target, Columns("B")) Is Nothing Then For Each cell In Target If cell.Row > 1 And cell.Value <> "" Then ' 如果代码列为空，则生成新代码 If Cells(cell.Row, 1).Value = "" Then Cells(cell.Row, 1).Value = GenerateNextCode() End If End If Next End If ' 2. 检测代码列编辑 (A列) -> 禁止编辑 If Not Intersect(Target, Columns("A")) Is Nothing Then For Each cell In Target If cell.Row > 1 Then ' 仅在实际编辑时提示 If cell.Value <> cell.Value Then ' 修改为更可靠的判断 MsgBox "代码列禁止手动编辑！", vbExclamation, "提示" Application.Undo GoTo SkipOtherChecks End If End If Next End If ' 3. 检测删除按钮列编辑 (C列) -> 删除行 If Not Intersect(Target, Columns("C")) Is Nothing Then For Each cell In Target If cell.Row > 1 And UCase(cell.Value) = "删除" Then ' 弹出确认删除对话框 If MsgBox("是否删除第" & cell.Row & "行数据？", vbYesNo + vbQuestion, "确认删除") = vbYes Then ' 删除整行并上移下方行 Rows(cell.Row).Delete Shift:=xlUp Else ' 取消删除操作 cell.Value = "" End If End If Next End If SkipOtherChecks: ErrHandler: Application.EnableEvents = True End Sub ' 生成新代码函数 Function GenerateNextCode() As String Dim lastRow As Long Dim lastCode As String Dim nextNum As Long ' 更安全的查找最后一行方法 lastRow = Cells(Rows.Count, 1).End(xlUp).Row If lastRow < 2 Then nextNum = 1 Else lastCode = Cells(lastRow, 1).Value If Len(lastCode) >= 5 And IsNumeric(Right(lastCode, 5)) Then nextNum = CLng(Right(lastCode, 5)) + 1 Else ' 查找有效的最后代码 nextNum = 1 For i = lastRow To 2 Step -1 If Len(Cells(i, 1).Value) >= 5 And IsNumeric(Right(Cells(i, 1).Value, 5)) Then nextNum = CLng(Right(Cells(i, 1).Value, 5)) + 1 Exit For End If Next i End If End If GenerateNextCode = "GYS" & Format(nextNum, "00000") End Function ``` **修复说明：** 1. **工作表引用问题修复**： - 使用循环查找工作表，避免直接引用`Sheets("Sheet1")`导致下标越界 - 添加工作表存在性检查 2. **空工作表处理**： - 在`GenerateNextCode`函数中添加空表处理逻辑 - 增加无效代码的自动检测 3. **错误处理增强**： - 在`Workbook_Open`中添加`On Error Resume Next` - 在`Worksheet_Change`中添加错误处理跳转标签 4. **代码列编辑判断优化**： - 修复之前的无效判断`If cell.Value <> cell.OldValue` - 添加`GoTo SkipOtherChecks`避免多重处理 **设置步骤：** 1. 确保存在名为"Sheet1"的工作表 2. 按`Alt+F11`打开VBA编辑器 3. 双击`ThisWorkbook`粘贴第一段代码 4. 双击`Sheet1`（或对应工作表）粘贴第二段代码 5. 设置工作表保护（在立即窗口执行`Ctrl+G`）： ```vba Sub ProtectSheet() With Sheets("Sheet1") .Unprotect "123" .Columns("A").Locked = True .Columns("B").Locked = False .Columns("C").Locked = False .Protect Password:="123", _ UserInterfaceOnly:=True, _ AllowDeletingRows:=False, _ AllowFormattingCells:=True End With End Sub ``` **常见错误原因：** 1. 工作簿中没有名为"Sheet1"的工作表 2. 工作表完全为空（无任何数据） 3. 未启用宏（保存为.xlsm格式） 4. 工作表保护未正确设置
评论 1
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符
 
红包 添加红包
表情包 插入表情
表情包 代码片
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值