Private Sub ExpandCollabButtonClick(sender As Object, e As EventArgs) Handles btn_collab.Click, btn_expand.Click If TryCast(sender, Control).Name = "btn_collab" Then ' 접기버튼이라면 TreeViewExpand(trv_Model.Nodes, 4, False) Else ' 펼치기라면 TreeViewExpand(trv_Model.Nodes, 4) End If End Sub Private Sub TreeViewExpand(nodes As WinControls.ListView.Collections.TreeListNodeCollection, level As Integer, Option..

위와 같은 표의 경우에 아래의 조건을 만족할 때만 돌아가도록 해야 한다. For문을 1단계씩 늘리면 조건비교할 때 숫자 부분도 지워버릴 수 있기 때문. 조건1 : 특정 단계를 포함하는 단계의 값을 지운다. 조건2 : 모두 2칸씩 정해져있기 때문에 J + 1칸도 지워야 한다. Sub test() '======================================================== With Application .ScreenUpdating = False '매크로 동작, 화면에 안 나타남 .DisplayAlerts = False '클립보드 경고 메시지 안 나타남 .Calculation = xlCalculationManual ' 자동 계산 방지 End With '=================..

이 Ubiety.Dns.Core.dll 어셈블리의 강력한 이름 서명이 잘못되었습니다. ​ 프로그램을 배포하는데 자꾸 이 오류가 나서 여기저기 해결을 해보려 했지만 ... ​ 거의 1시간정도를 날린 듯... ​ 증상 : 프로그램 실행 시 아래와 같은 팝업이 발생하며 안됨. ​ 증상 원인 MySQL 8.0.19 버전 자체의 문제인 것 같다. 다른 버전은 문제가 없었는데 Nuget Package로 설치를 해서 최신버전으로 설치했는데 문제가 됐던 것 같다. ​ 해결법 Nuget Package Console로 아래 명령어로 8.0.16 버전 설치 완료 시 해결 Install-package Mysql.Data -version 8.0.16 참고 : Nuget Package 콘솔 켜는 법 도구(T) -> Nuget 패..

using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Linq; using System.Text; using System.Threading.Tasks; using System.Windows.Forms; namespace CSharpForBlog { public partial class Form1 : Form { public Form1() { InitializeComponent(); this.KeyPreview = true; } protected override bool ProcessCmdKey(ref Message msg, K..

Dim avg = dt.AsEnumerable().[Select](Function(x) New With { Key .Carrier = x.Field(Of String)("Carrier"), Key .Name = x.Field(Of String)("Name"), Key .Avg = x.Field(Of Int32)("Level") }).Where(Function(s) s.Carrier = "X" AndAlso s.Name = "X") .[Select](Function(h) h.Avg).FirstOrDefault() If row.Count > 0 Then avgValueTC = row.AsEnumerable().Average(Function(x) x.Field(Of String)("컬럼1")) avgValue..

Dim columns = From row In onebon_dt Group row By steps = row("Step").ToString() Into Group Where Group.Count > 0 Select steps Dim query = onebon_dt.AsEnumerable().GroupBy( Function(l) New With { Key .Item = l.Field(Of String)("Item") }).Select( Function(g) g.FirstOrDefault Dim row = output_dt.NewRow() row("Item") = g.Key.Item Return row End Function).CopyToDataTable()